home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 88
/
088.d81
/
ml 101 boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
42 lines
100 ifpeek(56)<>32thenpoke56,32:clr
110 ifdvthen130
120 dv=peek(186):ifdv<8thendv=8
130 ifa=0thena=1:load"reader c800 low",dv,1
140 ifa=1thena=2:load"i-menu $c000",dv,1
160 gosub270:poke51253,dv
164 r1$=" 1. [210]ead/[208]rint [205][204] 101 ([196][207][195][211]) "
165 r2$=" 2. [210]ead/[208]rint [205][204] 102 "
166 r3$=" 3. [210]un [195][207][205][214][201][197][215] "
167 r4$=" 4. [208]rint [207]ut [201]nstruction [211]et "
168 r5$=" 5. [210]eturn [212]o [204][207][193][196][211][212][193][210] [146]"
170 sys49152,5,2,2,7,1,14,r1$,r2$,r3$,r4$,r5$
180 print""spc(12)"[204] [207][160][193] [196] [201] [206] [199] . . ."
190 geta$:poke186,dv
192 ifa$="1"thensys51200,"t.mldocs","[193][194][207][213][212][160][195][207][205][214][201][197][215]":poke781,0:sys59903:goto170
195 ifa$="2"thensys51200,"t.ml 102","[204][197][211][211][207][206] [207][206][197]":poke781,0:sys59903:goto170
200 ifa$="3"thenprint"[147]"chr$(142)"":poke56,160:clr:f$="comview"
210 ifa$="4"thenpoke56,160:clr:f$="set printer"
220 ifa$="5"thenpoke56,160:clr:f$="hello connect":poke186,8
230 print"[144]":print""
240 print "load";chr$(34);f$;chr$(34)","peek(186)
250 print"run"
260 poke631,13:poke632,13:poke198,2:end
270 remifpeek(787)=119thenreturn
280 print"[147]":poke53280,0:poke53281,0
290 poke214,10:print"[145]";
300 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
310 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
320 fori=217to242:pokei,peek(i)or128:next
330 poke214,12:print"[145]"tab(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
340 fori=1to7:printtab(2)"[155] [146][223]":next
350 printtab(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
360 print"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
370 poke214,14:sys58732
380 fori=1to5:reada$
390 printspc(20-len(a$)/2)"[155]"a$:a$="":next
400 f$="myb boot":return
410 data"[205] [204][160] [160]1[160]0 1","by [210]ick [206]ash"
420 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #88","[211]ubscriptions 1-800-831-2694"
430 data"[195]opyright ([195]) 1991 [211]oftdisk"
10000 save"@0:ml 101 boot"